home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 153 / 153.d81 / b.op ed 153 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  62 lines
  1. 10 poke56,36:poke55,0:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 25 lf=1:poke788,52
  4. 30 poke53281,0:poke53280,0:print"[147][129]"tab(8)"[204][207][193][196][211][212][193][210]'[211] [207][208] [197][196] [195][193][210][212][207][207][206][211]"
  5. 40 print"[155]     by [211]teven [215]right and [194]ill [204]aabs
  6. 42 [139]f1[167]100
  7. 44 f1[178]1
  8. 46 [151]214,4:[153]:[153]"cont       (NULL)oading (NULL)right$len(NULL) - please wait.
  9. 50 sys57812"wp/cm/unp",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  10. 64 sys57812"cpu or.shp",dv,0:poke780,0:poke781,0:poke782,100:sys65493
  11. 66 sys57812"user fiendly.shp",dv,0:poke780,0:poke781,0:poke782,115:sys65493
  12. 68 sys57812"aim & click.shp",dv,0:poke780,0:poke781,0:poke782,135:sys65493
  13. 69 sys57812"technology.shp",dv,0:poke780,0:poke781,0:poke782,36:sys65493
  14. 80 poke781,5:sys59903
  15. 90 poke53280,0
  16. 92 wp=49152:un=51456:cm=50688
  17. 94 lf$(0)="[207][198][198]":lf$(1)="[207][206] "
  18. 96 s(1)=100:s(2)=115:s(3)=135:s(4)=36
  19. 100 poke214,6:print:printtab(8)" 1.[154] [195][208][213] [207]perating [210]oom - [211][215]
  20. 101 [153][163]8)" 2.cont (NULL)ser asciendly - (NULL)(NULL)
  21. 102 printtab(8)" 3.[154] [193]im and [195]lick - [211][215]
  22. 103 [153][163]8)" 4.cont (NULL)echnology? - peek(NULL)
  23. 105 printtab(8)" 5.[154] [209]uit
  24. 106 [161]a$:[139]a$[179]"1"[176]a$[177]"5"[167]106
  25. 108 d[178][197](a$):[139]d[178]5[167]40000
  26. 109 [129]i[178]5[164]16:[151]781,i:[158]59903:[130]
  27. 112 [151]251,s(d):[151]252,64:[151]253,96:[158]51456
  28. 120 [151]214,6:[153]:[153]" 1.cont mid$ust show the picture.
  29. 122 print" 2.[154] [211]how the picture and print it on
  30. 125 [153]"    a 7-pin (1525-emulating) printer.
  31. 130 print" 3.[154] [211]how the picture and print it on
  32. 135 [153]"    an 8-pin (valpson-emulating) printer.
  33. 140 print" 4.[154] [212]oggle linefeed -- "lf$(lf)
  34. 150 print" 5.[154] [210]eturn to [204][207][193][196][211][212][193][210]
  35. 170 [153]"list  (NULL)ake sure your printer is on-line.
  36. 220 poke198,0
  37. 222 poke53280,0
  38. 230 geta$:ifa$<"1"ora$>"5"then230
  39. 232 ifa$="5"then40000
  40. 233 ifa$="4"thenlf=1-lf:poke214,14:print:printtab(23)""lf$(lf):goto220
  41. 235 sys51459
  42. 240 ifa$="2"thensys49155,4,0,lf,0,0,39,24,64:goto280
  43. 250 ifa$="3"thensys49152,4,5,lf,0,0,39,24,64,75,35,51,24,0:goto280
  44. 260 poke198,0
  45. 262 poke53280,0
  46. 270 geta$:ifa$=""then270
  47. 280 poke251,s(d):poke252,64:poke253,96:sys51459
  48. 282 poke186,dv
  49. 290 print"[147]":goto30
  50. 10000 dv=peek(186):n$="b.op ed 153":open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  51. 40000 poke788,49
  52. 40002 fori=0to21:poke828+i,8+i:next
  53. 40010 ifdv<8ordv>29ordv=8then40030
  54. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  55. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  56. 40040 close2:open2,i,2:close2:ifstthen40060
  57. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  58. 40060 next:print"[147]":poke53272,23:poke186,8:end
  59. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  60. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  61. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  62.